home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / cv_read.arj / TEST.PRG < prev   
Text File  |  1994-03-13  |  2KB  |  71 lines
  1.  
  2. FUNCTION TEST()
  3. * Test the UDFs in CV_READ by running a BASIC program and reading the results.
  4.  
  5. LOCAL nOutKey := 0, nHandle, cText, x1, x2, x3, n2, n3, nDecimals := 8
  6. LOCAL Getlist := {}
  7.  
  8. CLEAR SCREEN
  9. @ 01,01 SAY "Set DECIMALS to:" GET nDecimals PICTURE "99"
  10. READ
  11. SET DECIMALS TO nDecimals
  12. SET FIXED ON
  13.  
  14. DO WHILE nOutKey <> 27
  15.  
  16.    IF FILE("TEST.BAS")
  17.       * Use BASICA or GW-BASIC if your computer has it...
  18.       * RUN BASICA TEST
  19.       * RUN GW-BASIC TEST
  20.  
  21.       * Use QBASIC to test but have it use Microsoft Binary Format
  22.       * in order to be compatible with older versions of BASIC
  23.       RUN QBASIC /MBF /RUN TEST
  24.    ENDIF
  25.  
  26.    STORE SPACE(22) TO cText
  27.  
  28.    IF FILE("TEST.DAT")
  29.       nHandle := FOPEN( "TEST.DAT", 0 )
  30.       * read "whole" line with all three examples
  31.       FREAD( nHandle, @cText, 22 )
  32.       FCLOSE( nHandle )
  33.    ENDIF
  34.  
  35.    @ 08,00 SAY REPLICATE("=",80)
  36.  
  37.    x1 := SUBSTR( cText, 2, 2 )
  38.    x2 := SUBSTR( cText, 7, 4 )
  39.    x3 := SUBSTR( cText, 14, 8 )
  40.  
  41.    @ 10,10 SAY "Value returned by CVI("+x1+"): "
  42.    @ 10,50 SAY CVI(x1)
  43.    @ 11,10 SAY "Converted by MKI() => "+MKI(CVI(x1))
  44.  
  45.    @ 13,10 SAY "Value returned by CVS("+x2+"): "
  46.    n2 := CVS(x2)
  47.    @ 13,50 SAY n2
  48.    @ 15,10 SAY SHOW_BIN(x2)    // put after data
  49.    x2 := MKS(n2)
  50.    @ 14,10 SAY "Converted by MKS() => "+x2
  51.    @ 14,50 SAY CVS(x2)
  52.    @ 16,10 SAY SHOW_BIN(x2)    // put after data
  53.  
  54.    @ 18,10 SAY "Value returned by CVD("+x3+"): "
  55.    n3 := CVD(x3)
  56.    @ 18,50 SAY n3
  57.    @ 20,10 SAY SHOW_BIN(x3)    // put after data
  58.    x3 := MKD(n3)
  59.    @ 19,10 SAY "Converted by MKD() => "+x3
  60.    @ 19,50 SAY CVD(x3)
  61.    @ 21,10 SAY SHOW_BIN(x3)
  62.  
  63.    @ 23,00 SAY "Press [Esc] to quit; any other key to repeat ..."
  64.    nOutKey := INKEY(0)
  65.  
  66. ENDDO
  67.  
  68. RETURN .T.
  69.  
  70. *: END OF TEST.PRG
  71.